home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / com / computer / casio_st / prog_fx / divers / nb_octet.sha < prev    next >
Encoding:
Text File  |  1994-03-01  |  344 b   |  6 lines
  1. 1 REM PROGRAMME DE CALCUL DU NOMBRE D'OCTET
  2. 2 REM BASE DE DONNES: WTEL 24/24 (16) 62.93.74.05
  3. 3 REM
  4. 10 PRINT "Indiquez le numero de la page   que vous voulez tester:";:A$=INPUT$(1):PRINT A$;:IF A$="M" THEN A=11 ELSE A=VAL(A$)+1
  5. 20 PRINT :A=PEEK1715+256*PEEK1716-15*A:B=PEEK(A+3)+PEEK(A+4)*256-PEEKA-PEEK(A+1)*256-1:PRINT B"Octets":GOTO 10
  6.